(rmail-next-labeled-message): Correctly handle return value of

rmail-get-labels.

diff --git a/lisp/mail/rmailkwd.el b/lisp/mail/rmailkwd.el
index 0cf8f1b3849a535d00c19316a09b7ad01598a712..165b1c96a7d3f2a665ace15fb099cd8352a429a9 100644 (file)
--- a/lisp/mail/rmailkwd.el
+++ b/lisp/mail/rmailkwd.el
@@ -142,9 +142,9 @@ With prefix argument N moves forward N messages with these labels."
   (rmail-maybe-set-message-counters)
   (let ((lastwin rmail-current-message)
        (current rmail-current-message)
-       (regexp (concat ", ?\\("
+       (regexp (concat " ?\\("
                        (mail-comma-list-regexp labels)
-                       "\\),")))
+                       "\\)")))
     (while (and (> n 0) (< current rmail-total-messages))
       (setq current (1+ current))
       (if (string-match regexp (rmail-get-labels current))